Option Explicit


Dim g_LocalIp

' Includes a file in the global namespace of the current script.
' The file can contain any VBScript source code.
' The path of the file must be absolute. 
'
' @param VbsFileName the file name which you want to include.
Private Sub IncludeFile(ByVal VbsFileName)
    Dim Fso
    Dim File
    Dim s
    Dim CurrentPath     
    Set Fso = CreateObject("Scripting.FileSystemObject")    
    Set File = Fso.OpenTextFile( Fso.GetAbsolutePathName(VbsFileName), 1 )
    s = File.ReadAll()    
    ExecuteGlobal s
    Fso = Null
End Sub

' Include a file which need to save the same package
IncludeFile "iniparser.vbs"

Sub Main
	Dim IniParser

	Set IniParser = New IniParser_t
	IniParser.Load("config.ini")	
	
	g_LocalIp = IniParser.GetValue("system","local_ip","")
	
End Sub 